program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  i : integer;

begin
  writeln('sistem will be destroyed in');
  for i:=5 downto 1 do
    begin
    writeln(i);
    sleep(1000);
    end;
end.
